home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
editor
/
updatetools.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-12-22
|
2KB
|
88 lines
/* UpDatePopup.rexx V2.0 -- Update the Program popup. */
/* By Bob Caron (Grue) © 1995 NewTek Inc. */
TOASTERLIB="ToasterARexx.port"
call remlib('PROJECT_REXX_PORT')
call remlib('rexxsupport.library')
call addlib('PROJECT_REXX_PORT' , 0)
call addlib("rexxsupport.library", 0,-30,0)
startdir="toaster:arexx/editor/StartUpScripts"
if exists(startdir) then startup=1
else startup=0
dir=showdir(startdir,'f','*')
temp=translate(dir,'?',' ','?')
temp2=translate(temp,' ','*',' ')
dir = temp2
do while number~=12
number=eraseprogram(count)
end
number=0
if startup=1 then do
loopto=words(dir); loop=1
do while (loop<loopto+1)
program=translate(word(dir,loop),' ','?')
filenam=program
if upper(right(program,5))=".REXX" then
filenam=left(program,length(filenam)-5)
if isarexx(startdir||"/"||program) then
number=LADDTOOL(filenam,startdir||"/"||program||" 1",1)
if number=12 then break
loop=loop+1
end
end
call req_error("All done.")
call remlib('PROJECT_REXX_PORT')
call remlib('rexxsupport.library')
exit
eraseprogram:
parse arg number
signal on error
signal on syntax
call remtool(12)
syntax:
error:
signal off error
return rc
isarexx:
parse arg file
if exists(file) then do
if open('infile',file,'READ') then do
filestart = readch('infile',2)
call close('infile')
if filestart="/*" then return 1
end
end
return 0
laddtool: procedure
parse arg filenam,start,number
signal on error
signal on syntax
call ADDTOOL(filenam,start,number)
syntax:
error:
signal off error
return rc